10 DEFINT A-Z:DIM M(256),G(34),G0(34),G1(34):PRINT "Loading...";
20 DATA 0,3,12,15,48,51,60,63,192,195,204,207,240,243,252,255
30 FOR I=0 TO 15:READ G(I):NEXT I:FOR I=0 TO 15:FOR J=0 TO 7
40 N=G(I) OR G(J)*256:OF=I*16+J:M(OF)=N:M(OF+8)=N OR &HC000:NEXT J:NEXT I
50 G(0)=32:G(1)=16:G0(0)=32:G0(1)=16:G1(0)=32:G1(1)=16
60 FOR I=0 TO 31:READ A:G0(2+I)=M(A):NEXT I
70 FOR I=0 TO 31:READ A:G1(2+I)=M(A):NEXT I
80 SCREEN 1:KEY OFF:LOCATE ,,0:CLS
90 X=122:Y=46:FOR I=0 TO 3:FOR J=0 TO 31:READ A:G(2+J)=M(A):NEXT J
100 PUT (X,Y),G:PUT (X+1,Y),G,OR:X=X+G(0)\2+4:NEXT I
110 X=136:Y=66:FOR I=0 TO 1:FOR J=0 TO 31:READ A:G(2+J)=M(A) AND &HAAAA:NEXT J
120 PUT (X,Y),G:X=X+32:NEXT I
130 Y=66+16+4:FOR I=0 TO 3:X=102:FOR J=0 TO 6
140 FOR K=0 TO 31:READ A:G(2+K)=M(A):NEXT K:PUT (X,Y),G:X=X+G(0)\2
150 NEXT J:IF (I AND 1)=0 THEN PUT (X,Y),G0 ELSE PUT (X,Y),G1
160 Y=Y+17:NEXT I
170 LINE (80,30)-(319-80,199-30),1,B:LINE (81,31)-(319-81,199-31),1,B
180 LINE (78,28)-(319-78,199-28),1,B
190 S=8:X0=76:Y0=26:X=X0:Y=Y0:GOSUB 280:X=320-X0-S:GOSUB 280
200 X=X0:Y=200-Y0-S:GOSUB 280:X=320-X0-S:GOSUB 280
210 WHILE INPUT$(1)="":WEND:SCREEN 0:LOCATE ,,1:CLS:WIDTH 80:END
280 LINE (X,Y)-(X+S-1,Y+S-1),0,BF:LINE (X,Y)-(X+S-1,Y+S-1),1,B
290 LINE (X+2,Y+2)-(X+S-3,Y+S-3),1,BF:RETURN
300 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
310 DATA 0,0,0,0,0,0,48,0,48,0,16,0,32,0,0,0
320 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
330 DATA 0,0,0,0,48,0,72,0,72,0,48,0,0,0,0,0
340 DATA 16,0,16,8,19,252,18,8,254,8,18,24,51,24,58,168
350 DATA 86,72,82,72,146,168,19,24,18,24,20,10,20,10,24,6
360 DATA 16,56,19,192,16,64,16,64,252,132,23,254,49,32,57,16
370 DATA 86,14,85,20,153,16,17,16,17,16,18,16,20,16,16,16
380 DATA 2,0,1,4,255,254,8,128,8,128,16,248,17,8,50,136
390 DATA 86,80,153,16,16,160,16,64,16,160,17,16,18,14,28,4
400 DATA 0,64,64,64,48,136,19,252,130,8,98,8,42,8,10,8
410 DATA 19,248,18,8,98,8,34,8,34,8,35,248,34,8,32,0
420 DATA 9,0,253,8,9,8,9,16,9,32,121,64,65,4,71,254
430 DATA 65,64,121,64,9,32,9,32,9,16,9,78,81,132,33,0
440 DATA 16,32,18,32,34,32,35,36,74,172,250,112,18,32,35,252
450 DATA 66,32,250,112,66,172,3,36,26,32,226,36,67,254,0,0
460 DATA 0,16,15,248,8,16,8,16,8,16,15,240,8,16,8,16
470 DATA 8,16,15,240,8,16,8,16,16,16,16,16,32,80,64,32
480 DATA 8,32,8,36,255,254,9,32,65,248,35,16,36,160,128,64
490 DATA 73,176,18,14,47,244,226,16,34,16,34,16,35,240,34,16
500 DATA 2,0,4,32,31,240,16,32,16,32,16,32,16,160,16,64
510 DATA 16,4,31,254,0,4,0,36,255,244,0,4,0,40,0,16
520 DATA 0,64,0,32,121,252,72,136,72,80,75,254,74,34,76,32
530 DATA 73,252,121,36,73,36,1,36,1,36,1,44,0,32,0,32
540 DATA 31,240,1,0,127,254,65,2,157,116,1,0,29,112,8,4
550 DATA 8,254,126,132,8,252,28,132,42,252,72,132,8,252,8,132
560 DATA 65,32,49,36,31,254,1,32,128,0,111,252,33,32,1,32
570 DATA 31,252,41,36,233,36,42,212,44,12,40,4,40,20,40,8
580 DATA 0,8,127,252,1,0,1,0,1,0,1,4,255,254,1,0
590 DATA 2,128,2,128,4,64,4,64,8,32,16,16,32,14,192,4
600 DATA 64,0,48,8,23,252,0,64,128,64,96,64,40,64,8,64
610 DATA 16,64,16,64,96,64,32,64,32,68,47,254,32,0,32,0
620 DATA 16,0,16,8,19,252,18,8,254,8,18,24,51,24,58,168
630 DATA 86,72,82,72,146,168,19,24,18,24,20,10,20,10,24,6
640 DATA 1,0,65,8,49,252,18,16,132,32,111,252,36,68,12,68
650 DATA 23,252,36,68,228,68,39,252,36,4,32,0,47,254,32,0
660 DATA 1,0,1,0,1,0,1,0,17,8,17,24,17,32,33,64
670 DATA 66,128,2,128,4,64,4,64,8,32,16,16,32,14,64,4
680 DATA 0,16,0,16,0,16,252,16,5,254,4,16,72,16,41,16
690 DATA 16,144,16,144,40,16,36,16,68,16,128,16,0,80,0,32
700 DATA 4,32,14,32,120,32,8,164,254,172,8,176,29,80,42,72
710 DATA 72,142,9,4,2,0,9,0,40,136,40,164,72,36,7,224
720 DATA 0,8,123,252,74,8,74,8,74,8,123,248,74,64,74,68
730 DATA 75,254,122,64,74,32,74,32,74,16,122,146,75,10,2,6
740 DATA 16,32,16,32,16,32,16,36,19,254,252,32,36,32,36,36
750 DATA 69,254,37,4,25,4,17,4,41,4,69,4,129,252,1,4
760 DATA 4,64,4,68,255,254,4,0,2,0,2,32,63,240,2,32
770 DATA 34,40,34,36,36,36,68,36,8,32,16,32,33,64,64,128
780 DATA 32,32,32,40,32,36,39,254,252,32,36,32,36,36,39,164
790 DATA 36,168,36,168,60,144,230,144,69,48,8,82,8,138,16,6
800 DATA 8,64,8,64,8,64,16,64,31,64,33,96,33,80,98,72
810 DATA 146,70,10,66,4,64,8,64,16,64,32,64,64,64,0,64
820 DATA 2,0,1,0,127,254,68,66,159,244,4,64,31,240,4,64
830 DATA 127,252,4,64,11,32,16,144,32,78,198,4,1,128,0,64
840 DATA 1,0,1,0,1,0,1,0,65,4,65,4,65,4,65,4
850 DATA 65,4,65,4,65,4,65,4,65,4,127,252,64,4,0,0
860 DATA 1,0,1,8,127,252,1,0,1,0,1,4,255,254,0,32
870 DATA 0,32,127,252,8,32,4,32,4,32,0,32,0,160,0,64
880 DATA 2,0,1,4,255,254,8,128,8,128,16,248,17,8,50,136
890 DATA 86,80,153,16,16,160,16,64,16,160,17,16,18,14,28,4
900 DATA 1,0,33,8,25,24,9,32,1,0,63,248,1,0,1,0
910 DATA 1,4,255,254,1,0,1,0,1,0,1,0,1,0,1,0
920 DATA 16,32,16,32,16,32,28,36,33,254,33,36,125,36,145,36
930 DATA 17,36,253,252,17,36,16,32,20,32,24,32,16,32,0,32
940 DATA 1,0,1,4,255,254,1,0,127,252,0,0,63,248,33,8
950 DATA 33,8,63,248,32,8,32,0,32,0,64,0,64,0,128,0
960 DATA 1,4,127,132,8,4,16,36,34,36,65,36,127,164,8,164
970 DATA 8,36,8,36,127,36,8,36,8,4,15,132,248,20,64,8
980 DATA 2,0,1,0,127,254,72,2,143,244,8,32,20,64,35,128
990 DATA 12,96,48,30,207,228,8,32,8,32,8,32,15,224,8,32
1000 DATA 8,8,16,124,62,72,34,72,50,72,42,72,34,134,35,0
1010 DATA 254,4,34,254,50,132,42,132,34,132,66,132,138,252,4,132

